screen 20,8
      
dim as single r,xmin,xmax,ymin,ymax,dx,dy,q,p
dim as single m,k,kmax,nx,ny

DIM x (201) as double
DIM y (201) as double


xmin = -1
xmax = 1
ymin = -1.25
ymax = 1.25

dx = (xmax - xmin) / 1024
dy = (ymax - ymin) / 768

p = .274
q = .00742

m = 100
kmax = 200

FOR nx = 0 TO 1024
  FOR ny = 0 TO 768

    x(0) = xmin + nx * dx
    y(0) = ymin + ny * dy
    k = 0

    zwei:
    x(k + 1) = x(k) ^ 2 - y(k) ^ 2 + p
    y(k + 1) = 2 * x(k) * y(k) + q
    k = k + 1
    r = x(k) ^ 2 + y(k) ^ 2

    IF r > m THEN GOTO vier
    IF k = kmax THEN GOTO vier
    IF r <= m AND k < kmax THEN GOTO zwei

    vier:
    PSET (nx,ny),k * 2 - 1

  NEXT ny
NEXT nx

  sleep
      END 0